8086/8087/8088 MACRO ASSEMBLER KACS - REAL-TIME AND ALARM CLOCK ROUTINES 09/01/8C 


SERIES-III 8C86/8C87/8088 MACRO ASSEMBSLER V1.0 ASSEMBLY OF MODULE CLOCK 
CBJECT MODULE PLACED IN :F1:CLOCK.OBJ 
INVOCATION LINE CCNTRCLS: <dOE8UG 


LOC OBJ LINE SCURCE 
41 +1 S$TITLE (C°KAOS = REAL-TIME AND ALARM CLOCK ROUTINES”) 
2 NAME CLOCK 
3 is 
4 rer Intel Corporation Proprietary Information. This 
> ; listing is supplied under the terms of a license 
6 , agreement with Intel Corporation and may not he ccpied 
i , nor disclosed except in accordance with the terms of 
8 , the agreement. 
9 
1c 
14 ,t+ ALARM CONTROL BLOCK DEFINITION 
12 ; 
12 ; FLAG BITS M=AN: 
14 7 1 - ALARM/ TRIGGERED IFF S&T. 
15 7 2 - ALARM UNKNOWN TO KAOS IFF SET. 
16 
aa 17 ALAR STRUC 
CQO00 1é& NEXT ay) 0 
CC04 19 UTYPE 8 0 
C005 z0 FLAG DB 0 
CO06 21 LAST DD 0 
QOOA 22 DLOW OW 0 
CCGOC 23 DHIGH DW 0 
COQOE 24 RM5X OW 0. 
ieee 25 ALARM ENOS 
26 
2¢ 
c& ; MAILBOX HEADER DEFINITION 
29 
aes 30 HEADER STRUC 
C000 31 AHEAD: DW 0 
Q002 | Se TAIL DW 0 
COO04 aS TYPEF DW 0 
-Q006 34 CCUNT DW 0 
CQ08 355 MHEAD DC 0 
COOC 36 MTAIL DD 0 
as 37 HEADER ENDS 
| 3& : 
0015 . 39 Max EQU 15H 7MAILBOX TYPE 
40 
41 . 
42 ; DATA BASE, EXTERNAL AND GROUP DEFINITONS 
43 
44 EXTRN ISEND:NEAR 
45 
46 DEROQUP GROUP DATA 
aes 47 DATA SEGMENT byte PUBLIC ‘DATA’ 


co00 «1 48 TIME_HEAD DD 1 DUP (2) 
99999999 


ee ¢€e 8 6 as 
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Se, rm rm meh in, seme, my ess ct, eS en), SL S| SEAN, STOP my SENAY An re, (SERS even, NY S|, NN, ses. 
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Loc OBJ LINE ~ SCURCE 
C004 (2 49 DB 2 DUP (2) ;DUMMY BYTES FOR TYPE AND FLAG 
99 
) 
COO6 (1 50 D0 1 DUP (2) 
22722222 
) 
COOA ¢1 51 TIME_LOW DW 1 DUP (€7?) 
2227 
) : 
cooc «1 52 TIME_HIGH OW 1 DUP (2) 
2227 
) 
<= 55 DATA ENCS be 
54 
55 CGEROUP GROUP COCE 
---- 56 CODE | SEGMENT byte PUBLIC “CODE? ; 
57 ASSUME CS:CGROUP,/DS:DGROUP 
59 
55 EXTRN  CQHALTANOCATCHEIRE:NEAR 
60 
CCU00: <==<= RK 61 DGRP DW NGROUP 
62 
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LOC OBJ LINE SCURCE 
64 +1 SINCLUDE (:F1:PORTS.INC) 
=4 65 
1 66 ; CCNTOL PORTS 
1 é7 
o0co 1 68 SET_TXSRT EQU OOOH 
0061 =14 69 RESET_TXSRT EGU 001H 
00Cc2 1 7C SET_RXAVI1 ECU 002H 
00C3 4 71” SET_LRXAV2 ECU OO3H 
0004 1 72 SET_RXAV3 EGU O0O4H 
oocs 1 3 RESET_ERRCR EGU OO5H 
O0Cé =4 74 -RESET_CHANNEL_COUNTER EQU 006H 
O0A0 1 1S SET_SYS EQU OAOH 
0080 4 76 ~~ SET_LOC ECU 080H- 
1 77 
=4 Te «+ 
1 79 ; PIT VALUES 
=4 80 
00c3 1 a4 PITCMCD ECU 003H 7PIT COMMAND PORT 
OOC 1 82 PIT_BCK EQU OD2H .—- +PIT BACKOFF TIMER 
00c1 = a3 PIT_RTC EGU OD1H ;PIT REAL-TIME CLCCK PORT 
ooca = 84 PIT_ALC ECU OCOH 7PIT ALARM@CLOCK PORT 
= 85 
ooco 1 86 LATCH RTC | ECL OOH LATCH REAL-TIME CLOCK VALUE 
0046 1 &7 LATCH _ALC EQL 40H | 7LATCH ALARM~CLOCK VALUE 
1 &8 | 
1 89 
1 $0 ; OMA VALUES 
1 94 
00c8 4 92 MACMCO EGU OC8H 370MA COMMAND AND STATUS PORT 
O0CS 1 53 DMAREQ ECU CC9OH OMA REQUEST PORT 
OOCA 4 G4 | DMAMSKB -EQU OCAH 7O0MA MASK BIT PORT 
OOCB 4 $5 DMAMODE EGU OCBH 7DMA MODE PORT 
oocc 1 56 DMABPTR ECU OCCH 7OMA BYTE POINTER PORT 
OOCD 1 $7 OMACLR ECU OCDH 72? (TMP & CLEAR??) 
OOCF =| 98 DMAMASK EQU OCFH 7OMA MASK PORT 
4 99 | 
ooco 1 100 CHOADOR EGU OCOH CHANNEL O ADDRESS PORT 
00C1 4 101 CHOWC EQU OC1H CHANNEL O WORD COUNT PORT 
00C2 1 102 CH1TADDR - EQU OC2H CHANNEL 1 ADORESS PORT 
00c3 = 103 CHIWC - EQU OC3H CHANNEL 1 WORD CCUNT PORT. 
ooc4 =4 104 CH2ADDR EGU OC4H CHANNEL 2 ADDRESS PORT 
oocs = 165 CH2WC ECU OC5H CHANNEL 2 WORD COUNT PORT 
O0Cé | = 106° CH3AODDR EQL OC6H 7CHANNEL 3 ADDRESS PORT 
00C7 = 107 CH3WC ECU OC7H *CHANNEL 3 WORD COUNT PORT 
= 1C& 
=1 109 
= 11¢ ; PTO VALUES 
=1 111 
OOE3 4 412 PIOCMC EQU O&3H 7PIO COMMAND PORT (CHECK: F3?) 
OOEO = 113 PIOA EQu O£OH  ZFIO PORT A 
O0E1 4 114 PI0B ECL OE1H 7PIO PORT 8B 
QOE2 =4 115 PIOC "  2eu CE2H. 7;PIO PORT C 
=4 116 
OOFS =4 +47 PIOCLR EQU 111100118 CLEAR SERDES 
002A = 118 PIOSEN ECU 001010108 SERIAL ENABLE 
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KAOS.-= REALTIME 


ANC ALARM CLOCK ROUTINES 


SCURC: 
PIOSENP ECU 001000108 
PIOREAD ECU 111000008 
; PIC VALUES 
PICCHO ECU OFQH 
PICDATA EQU OFOQH 
PICMASK =EL OF1H 
FOI PIC EGU 20H 
SEOI_PIC ECU 60H 
PCLL_PIC ECU OCH 
READ_IRR EQU OAH 
RTC_OCNE EU 40H 
RTC_INT_SEOTI ZQU 60H+6 
RTC_INT ZQU BOH+6 
CH1_D0NE ECU O1H 
CH2_DONE ECU 02H 
CH3_DONE EY O4H- 
7, MISC. OEFINITIONS 
MCFLAG EQU O1H 
JUNK_8YTES EGU Fi 
$ EJECT 
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7PROMISCUOUS SERIAL ENABLE 
7READ ADDRESS COMMAND 


PIC COMMAND FORT 
7PIC DATA PORT 
7PIC MASK PORT 


PIC END-OF-INTERRUPT COMMAND 

,PIC SELECTIVE EOI COMMAND 

POLL PIC COMMAND 

7PIC READ-IRR COMMAND 

7MASK FOR REALTIME CLOCK INTERRUPT 
7COMMAND TO EOI RTC INTERRUPT 

7POLL COMMAND RETURN IF INTERRUPT 


7RX CHANNEL 1 DONE 
*RX CHANNEL 2 DONE 
7RX CHANNEL 3 DONE 


MULTICAST BIT 
NUMBER OF RECIEVE JUNK BYTES 
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KACS 


-— REAL-TIME ANC ALARM CLOCK RCUTINES 


09/01/80 


TIMERINIT - INITIALIZE TIMER CATA STRUCTURES 


THIS RCUTINE IS CALLED BY "START" TO INITIALIZE TIMER CATA BASES. 


PUBLIC 


TIMERINIT: 


$ 


SJeGT 


MOY 
MCV. 
MOV 
MCV 
MCV 
XCR 
MOV 
MOV 
RET 


TIMERINIT 


BX,OFFSET DGROUP:TIMNE_HEAC 

WORD PTR CBXI.NEXT/BX  /ZINITIALIZE TIME_HEAD 
WORD PTR CBXI.NEXT+2,DS 

WORD PTR CBXI-LAST+BX 

WORD PTR CBXI.eLASTt2,0S 

AX, AX 
TIME_LOW-AX 


sINITIALIZE REAL-TIME CLOCK 
TIME_HIGH,AX | 


PAGE 


£086/8087/8088 


LOC 


CBJ 


E603 
§1060A0C0004 
€31é60C0C0O 


E401 
SADC 
e401 
BAFO 
F7D2 
GLS2rr CF 
B105 
D3EA 
A10A00 
03C2 
8907 
A10CQ0 
150000 
B9I4702 
9D 
FFES 
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KAOS - REAL-TIME ANC ALARM CLOCK ROUTINES 09/01/8C. PAGE 
SOURCE 
5 READSCLOCK (DATASRTN$O) - READ REAL-TIME CLOCK. 
7 
; PARAMETER: | 
; DATASRTNSO - OFFSET OF A 4 BYTE BLOCK FOR RETURN OF THE 
; VALUE OF THE REAL-TIME CLOCK. THIS VALUE IS STCGRED 
; IN STANDARD FORMAT, I.Eer LOW BYTE FIRST. 
PUBLIC READCLOCK 
READCLOCK: 
POP Si 3POP RETURN ADDRESS 
PCP BX #POP RETURN POINTER 
PUSHF 7SAVE INTERRUPT FLAG 
Cit ZCLEAR INTERRUPTS 
MCV AL/LATCH_RTC 
OUT PITCMD,AL *LATCH UP COUNT 
IN. AL, PICMASK 7SAVE MASK IN CL 
MOV Clo Al. 
MOV AL/NOT RTC_DONE OPEN ONLY RTC INTERRUPT LEVEL 
OUT PICMASK-AL | | 
MCV AL/POLL_PIC ¢POLL TO SEE IF INTERRUPT ASSERTEC 
OUT PICCMD/AL 
IN AL,/PICDATA : 
XCHG AL/CL PRESTCRE PIC MASK 
OUT PICMASKsAL 
XCR CL/RTC_INT TEST IF INTERRUPT ASSERTED 
JNZ READ1 | 
MOV AL/RTC_INT_SEOI CLEAR INTERRUPT FLAG IN PIC 
OUT PICCMD,AL 
MOV AL,LATCH_RTC 7RE-LATCH TIME 
OUT PITCMD-AL | : 
AGO TIME_LOW,/400H  FINCREMENT MEMORY PART OF TINER 
ADC TIME_HIGH,O 
READ1: IN AL,/PIT_RTC 7READ REAL-TIME CLOCK 
MCV DL, AL 
IN AL, PIT_RTC 
MCV OH, AL ; 
NOT DX 3COMPLEMENT COUNT -- DOWN COUNTER 
AND OX, 7FFFH ;MASK OFF BOTTOM 15 BITS 
MCV Chs5 + SHIFT 
SHR DX,CL 
MCV AX,TIM=_LOW 7ADD RTC TO STORED VALUE 
ACD AX, DX 
MOV Cax1-AX 7PUT SUM IN RETURN BLOCK 
MOV AX, TIME_HIGH 
ADC AX,0 
MOV CAX+21,AX 
POPF RETURN 
JMP St 
$ EJECT 
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LOC 


0070 
C070 
CO71 
G072 
CO7?7 
GCc7) 
CO32 
0084 
0086 
0089 
CO3A 
0068 


CO8Cc 
008D 
CO8E 
0090 
CQ92 
GO94 
CO96 
CO98 
QOO9A 
CO98B 


O3J 


E8E1EOCOO 


81060A0C0004 


@3160COCCO 
BO20 

E6FO 

=80000 

1F 

58 

Cz 


SC 
FA 
8000 
E6D3 
E401 
8AEQ 
E401 
8620 
90D 
C3 
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SCURCE / 
33 CLOCKSINT - REAL-TIME CLOCK INTERRPUT SERVICE ROUTINE. 
4 
; PARAMETERS: 
: NONE. : 
F 
; NOTE: THIS ROUTINE CALLS DLLETHERLOAD SO THAT IT MAY COMPUTE 
; THE ENTER LOADING. THIS ROUTINE MUST TAKE INTO ACCOUNT 
; THAT ONLY CS ANO AX HAVE BEEN SAVED, AND SAVE ANY OTHER 
; REGISTERS IT USES. 
PUBLIC CLOCKINT 
EXTRN ODLLETHERLOAD:NEAR 
CLOCKINT: 
PUSH AX 
PUSH DS 
MOV DS,DGRP . 
ADD TIME_LOW,/400H FSERVICE REAL-TIME CLOCK INTERRUPT 
ADC TIME_HIGH,O 
MOV AL, EOI_PIC 
OUT PICCMD,AL 
CALL DLLETHERLOAD 
POP DS 
POP AX 
IRET 
ee RANDOM - RETURN "RANDOM" NUMBER. 
7 
; THIS. ROUTINE RETURNS THE VALUE OF THE REAL-TIME 
; CLOCK TIMER IN THE 8253 FOR USE BY THE DATA LINK LAYER 
; IN COMPUTING BACK-OFF TIME. 
F 
; RETURNS: 
; AX = TIMER VALUE. 
PUBLIC RANDOM 
RANDOM: PUSHF SAVE INTERRUPT FLAG 
CLI *#CLEAR INTERRUPTS 
MOV AL/LATCH_RTC | 
OUT PITCMD-AL LATCH UP COUNT 
IN AL, PIT_RTC - Z3READ REAL-TIME CLOCK 
MOV AH, AL | 
IN AL,PIT_RTC 
XCHG AH, AL 
POPF 
RET 
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LOC 


QO9C 
JO9F 
COAQ 


CCA3 
COA3 
OOA4 
COA5 
COA6 
QOA7 
O0A8 
COA 
OOQAE 
d080 
COB4 
COB5 
COB6 
C087 


Coss 
COBF 
00c1 
GOC3 
00c6 


docs 
QQCA 
OOCC 
GOCE 
COD0 
COD2 
COD4 
CCO6 
COD8 


OBJ 


B80800 
50 
= 30000 


26807C0500 
(4EC 
2O89540E 
30 

GC 

FA 
C51z000C 


81F30006 
7507 
8CD8 
3)---- 


7410 


B04C 
E603 
E400 
8 AED 
E400 
86C4 
OBFF 
ser 
S301 
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SETALARM CALARMSP, MAILBOXS0O, DELAYSH, DELAYSL) - SET ALARM CLOCK. 


PARAMETERS: 

ALARMSP - POINTER TO A 16 BYTE BLOCK OF MEMORY FOR 
THE ALARM CONTROL BLOCK. 

MAILBOX$0 - OFFSET OF A MAILBOX TO RETURN THE ALARM CONTROL 
BLOCK AFTER THE ALARM GOES OFF. IF ZERO, DO NCT SEND 
TO A MAILBOX. | 

DELAYSH, DEALYSL - THE HIGH AND LOW WORDS OF THE TIME DELAY 
IN 800 NS CLOCK TICKS TO WAIT BEFORE THE ALARM GOES OFF. 


MOV AX,8 > TRIED TO SET AN ALREADY SET ACB 
PUSt AX 
CALL CQHALTANDCATCHFIRE 


PUBLIC SETALARM 


SETALARM: 


“ws Ne Ne Ne Ne Ne 


PCP AX 7POP RETURN ADDRESS 

PCP CX 7CX = DELAYSL 

PCP DI 7DI = DELAYSH 

POP DX 7POP MAIL8B0X$0O 

POP Sok 7ST = ALARMSO 

PCP SS 7ES = ALARMSS 

CMP ES: CSIIJ.FLAG~0 

AZ SETO 

MCV ES:CSIJ.RMBX,/OX -STORE MAILBOX$O INTO CONTROL BLOCK 
PUSH AX RESTORE RETURN ADDRES 

PUSHF 7SAVE FLAGS | 

CLi RUN WITH INTERRUPTS OFF 

LOS BX,TIME_HEAD LOAD POINTER TO FIRST ALARM CONTROL BLOCK 


REGISTER USAGE: 
AX - TEMPORARY 
DS:BX = CURRENT ALARM CONTROL BLOCK 
DI:CX - DELAYSH:DELAYSL 
OX - UNUSED 
ES:SI - NEW ALARM CONTOL BLOCK CNOT ACCESSED IN THIS SECTION) 


CMP 3X,/OFFSET OGRCUP:TIME_HEAD 7TEST FOR NULL LIST 
JNZ SET1 7IF NOT NULL 
MOV AX,DS | 

CMP AX,/SEG DGROUP:TIME_HEAD 

dz SET2 7 IF NULL 

MCV AL/LATCH_ALC 7READ TIMER TO AX 

OUT PITCMD/AL 

TN AL,PIT_ALC 

MOV AH? AL 

IN AL,/PIT_ALC 

XCHG AL, AH | 

OR DI,DI 7 TEST IF CELAYSH = QO; 
JNZ  SET3 IF NOT ZERO 

CMP AX,CX . ;TEST IF TIMER > DELAY 


PAGE 
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LOC 
CODA 


cooC 
CODE 
0051 


O085 
COE? 
COES 
COE3 
COED 
QOEE 
COFO 
COF2 
COFS 
COF6 
COF9 
OOF8B 
OOFD 
COFF 


0101 


C103 
0106 


0108 
O104 
UiOE 
6110 
0112 
G115 
0117 
C11A 
0110 


C11F 
C122 
Cites 
C128 


C128 
Q12F 
0133 


01470A 


C51F 


81FBCOQ0C 


7507 
&CD8 
Sete 
7414 
234F0A 
137F0C 
TSE9 


O34F0A 
137FOC 
294F0A 
197FOC 


26894C0A 
26897COC 
26C6440500 
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CMP 
JZ 

SUB 
S88 
JKC 


ACC 


ADC 


SUB 
SBS 
MOV 
MOV 
MCV 


REG 


- REALH TIME 


AND ALARM CLOCK 


SET3. 


AX,CX 
C8x].0LOW-AX 
CBX1J.DHIGH,0O 


ROUTINES 09/01/80 PAGE 


TF TIMER <= DELAY 


7AX = TIMER - DELAY 


ALARM GOES ON THE HEAD OF THE LIST 


ALAR 


ISTER 
AXK:DI 
DS:8X 
CX 
DX 
eS so 


AxX,0 
PIT_ALC,AL 
AL, AH. 
PIT_LALC,AL 
SHORT SET? 


7TEST IF DELAYSH = 0 
IF NOT ZERO 
*TEST IF CELAYSH = O 


7iF NOT ZERO 


7SET TO AS CLOSE TO ZERO AS WE GET 


SET TIMER TO LOW PART OF DELAY 
*SET LOW PART OF DELAY = C 


ELAYSH = DELAYSH - 1 
T TIMER TO MAX 


*SKIP "ELSE" SECTION 


M NOT AT THE HEAD OF THE LIST 


CX AX 
DI,0 
SHORT SETS 


BX, CBXIsNEXT 


BX,OFFSET DGROUP:TIME_HEAD 


SET6 
AX,DS 


7DELAY -= TIMER 


7ENTER LOOP 


ADVANCE TC NEXT ENTRY 


JTEST IF END OF LIST 
7IF NOT END OF LIST 


AX,SEG DGROUP:STIME_HEAD 


SET? 
CxX,C3X].D0L0W 
DI,C8XJ.DHIGH 
SET4 


CxX,CBX].9L0W 
O1,CB8X1.DHIGH 
CBX] .CLOW,CX 
C8XI.DHIGH,DI 


npn mi 
Mm Min 


:CSIJ.FLAG,0 


IF END OF LIST 
DELAY ~= BX.DELAY 


7LOOP IF NO 30RROW 
PUT IT BACK THE WAY IT WAS 


7BX DELAY -= DELAY 


=CSIJ.DLOW/CX ZSTORE DELAY 
> CSIJ.DHIGH,DI 


7SET FLAG TO “WAITING’ 


USAGE WHILE LINKING NEW ACB INTO LIST: 
- PREDECESSOR OF CURRENT ALARM CONTROL BLOCK 
- CURRENT ALARM CONTROL 8LOCK 


UNUSED 
UNUSED 


NEW ALARM CONTOL BLOCK 


9 
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LOC 


C138 
01338 
CESr 
0142 


C145 
0148 


0148 
O14F 


0153 
C155 
C157 


CISA 
O15F 
C160 


CBJ 


26891C 
268C5C02 
&@a7FC6 
884708 


897706 
8C4708 


26897C0E 
26894408 


8EDE 
8935 
8C4502 
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SOURCE 


> EJECT 


MOV 
MOV 
MGV 
MOV 


MCV 
MCV 


MCV 
MOV 


MCV 
MOV 
MOV 


MCV 
POPF 
RET 


WORD 
WORD 


PTR 
PTR 


ES: CSIJ.NEXT,/BX 
ES: CSTI.NEXT+2,0S 


DI,WORD PTR £BXI.LAST 
AX,WORD PTR CEBXI.LASTtH2 


WORD 
WORD 


WORD 
WORD 


OS7,AX 


WORD 
WORD 


PTR 
PTR 


PTR 
PTR 


PTR 
PTR 


DS,DGRP 


CBXIJ.LAST,SI 
CBaXIJ,LAST+2-ES 


ES: CSII.LAST-DOf 
ES: CSTJ.LAST+2,AX 


COLJ.NEXT-SIz 
COILJ.NEXT+2-ES 


RESTORE CS 
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JNEWNEXT <— CURRENT 


ZAX2:DI <- LASTCCURRENT) 


sCURRENT.LAST <~ NEW 


sNEWSLAST <= LASTCCURRENT) 


,OS:DI <- LASTCCURRENT) 
sLASTCCURRENT) «NEXT <> NEW 


RESTORE INTERRUPT FLAG 


vRETURN 
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Q169 
C168 
C160 
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0177 
C178 
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C17F 
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01384 
C187 
018A 


018¢ 
C18F 
0193 
0195 
0197 
C19C 
G1A1 
01A6 
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AW aw 2) 


TIMERSIN 


DARAMETE 
NONz.« 


PUBLIC 


TIMERINT: 


PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 


PLiXSD: RE 
SHORT Te 


59$:3X 


MCV 
OR 
JNZ 


REGISTER 


MOV 
MCV 
MCV 
LCOS 
MOV 
MCV 
MOV 
MOV 
OR 
J2 
PUSH 
PUSH 
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T ~ ALARM CLOCK TIMER INTERRUPT SERVICE ROUTINE. 


Ss 


TIMERINT 


*SAVE REGISTERS 


GISTER USAGE: 


DGROQUP 


RM REGISTER USAGE: 
- TEMPORARY 


- CURRENT ALARM CONTROL BLOCK 
AL,EOI_pPIc ACKNOWLEDGE INTERRUPT 
PICCMD,AL 
2£S/DGRP 


BXvES:DGROUP:STIME_HEAD 
BX/sOFFSET DGROUP:TIME_HEAD 


TINT1 
AX,DS 


AX,DGROUP 


TINTS 


AX, CBX] .0LOW 


7IF LIST NOT NULL 


7IF LIST IS NULL, EXIT 


TEST IF NO MORE TIME ON ALARM 


AX,€38X].DHIGH 


TINTS 


,IF ADDITIONAL TIME ON ALARM 


USAGE IN THIS SECTION: 

- MAILBOX OFFSET 

- HEAD ALARM CONTROL BLOCK IN FIRST PART 
- HEAD ALARM CONTROL BLOCK IN SECOND PART 
- NEXT ALARM CONTROL SLOCK IN SECOND PART 


AX, CBX] «RMBX ;READ MAILBOX TO SIGNAL 


DX,DS 


SI,CBXI.NEXT 


WORD PTR 
WORD PTR 
WORD PTR 
WORD PTR 
AX AX 
TINT3 

AX 

DX 


,SET FLAG TO “TRIGGERED’ 
*SAVE BASE OF CURRENT ACB 
*7UNLINK HEAD OF LIST 
ES:DGROUP:TIME_HEAD-,SI 
ES:DGROUP:TIME_HEADt2,DS 
CSTJ].LAST/-OFFSET OGROUP:TIME_HEAD 
CSTJ.~LAST+2,BGROUP 

TEST IF ZERO MAILBOX ADDRESS 
7IF ZERO, DO NOT SEND 
7PUSH MAILBOX OFFSET 

,7PUSH ACB BASE 
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LOC 


0181 
C132 
0137 
013A 


OTB F 
0104 
01C8 
CICA 
01CC 
CiCF 


C101 
GOs 
Q107 
01038 
0100 
O1DF 
Cl Baa 
Ores 


0185 
C1E8 
C1E8 
C1éD 
O1EF 
01F1 
C1F3 


O1F8 
C1F9 
CIFA 
O1FB 
C1FC 
C1FD 
O1FE 
C1FF 
C200 
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SCURCE 


® 
7 


yeti Be ioe 


TINTS: 


TINTE: 


5 EJECT 


= (REALTIME 


PUSH 
MCV 
CALL 
MOV 


REGISTER USAGE 


LOS 
CMP 
JNZ 
MOV 
CMP 
JZ 


CMP 
JZ 

SUa 
MCV 
OUT 
MOV 


OUT 


JMP 


MCV 
CMP 
JC 

OUT 
MCV 
OUT 
MCV 


PCP 
POP 
POP 
POP 
PCP 
POP 
PGP 
POP 
IRET 


AND ALARM CLOCK 


BX 
DS,DGRP 
TSEND 
ES/DGRP 


BX,ES:O0GROUP:TIME_HEAD 
B8X,OFFSET OGROUP:TIME_HEAD 


TINTS 
AX,0OS 
AX,DGROUP 
TINT6 


C&XJ.O0HIGH,0 
TINTS 
CBXJ.0HIGH?1 
AL,LOW OH. 
PIT_ALC,AL 
AL/HIGH OH 
PIT_ALC,AL 
SHORT TINT6 


AX,C8XJ.D0LOW 
AX,20 

TINT2 
PIT_ALC?/AL 
AL, Ad 
PIT_ALC,AL 
C8X1].0L0W-,0 


ROUTINES 09/01/8CG PAGE 
7PUSH ACB OFFSET 
7SET UP DS TO CONFORM TO “COMPACT’ MODEL 


7SEND TIMER CONTROL BLOCK TO FMAILECX 
,RESTORE ES 


RETURNS TO ORIGINAL 


DS: BX 
END OF LIST 


sRESTORE POINTER IN 
,TEST IF AT 
IF NOT AT END OF LIST 


7IF AT ENC OF LIST 


7SET TIMER (°OH’ ADJUSTABLE FOR PROC. TINE) 


,EXIT 


, ADDITICNAL TIME, TRIGGER THIS ALARM 
; 


F LITTLE 
E 


I 
SET TIMER 


7CLEAR DELAY 


*RESTCRE REGISTERS 
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8086/8087/8088 MACRO ASSEMBLER 


LOC 


0201 
C201 
QO202 
C203 
C204 
C209 


C208 
C2038 
C20C 
G20D 
C20E 
C212 
G20 


OaJ 


aA 

33 

07 
26C6470502 
FFE2 


5A 

ao 

07 
268A4705 
250100 
PRE 


LINE 


500 


gene 


502 
503 
504 
505 
506 
507 
503 
509 
516 
511 
512 
513° 
514 
5145 
516 
517 


KACS - REAL-TIME AND ALARM CLOCK ROUTINES — 09/01/80 PAGE 
SCURCE 
the CREATESALARM CALARMSP) - CREATE AN ALARM CONTROL BLOCK. 
: | 
; THIS ROUTINE FORMATS RAW MEMORY IN SUCH A WAY THAT 
; NCLEARSALARM"S MAY LEGALLY BE PERFORMED ON IT. 
; 
; PARAMETER: 
; ALARM3P - POINTER TO A 16-8YTE BLOCK OF MEMORY 
; TO FORMAT INTO AN ALARM CONTROL BLOCK. 
PUBLIC CREATEALARM 
CREATEALARM: 
POP DX 7POP RETURN ADDRESS 
DCP BX POP ALARMSP 
POP a 
MCV ES:CBX].FLAG,;2 FSET FLAG TO “UNKNOWN’ 
JMP DX F RETURN 
the CHECKEALARM CALARM$P) - CHECK IF ALARM HAS GONE OFF. 
; 
: PARAMETER: 
; ALARMSP - POINTER TO AN ALARM CONTROL BLOCK FOR A PENDING ALARM. 
; 
; RETURNS: ; 
; TRUE - THE ALARM HAS GONE OFF. 
; FALSE - THE ALARM HAS NOT GONE OFF. 


PUBLIC CHECKALARM 


CHECKALARM: 


POP DX 7POP RETURN ADDRESS 

PUP BX 7POP ALARM POINTER 

PQP ES | 

MCV AL-ES:CBXI.FLAG *#READ FLAG 

AND AX+1 MASK OUT “TRIGGERED’ 8IT 
JMP DX ,RETURN 
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8086/8087/8088 MACRO ASSEMBLER KACS - REAL-TIME AND ALARM CLOCK ROUTINES 09/01/80 PAGE 
LOC OBJ LINE SOURCE 
541 ea: CLEARZALARM CALARM$O) - CLEAR ALARM FROM KAOS STRUCTURES. 
542 ; . 
543 ; PARAMETER: 
544 ; ALARM3O - OFFS=T OF AN ALARM CONTROL BLOCK. 
545 
546 
547 PUBLIC CLZARALARM 
0217 880700 548 CLEARO: MCV AX,+7 7SET AN ERROR 
C21A 50 549 PUSH AX . 
0218 E8A500 550 CALL HALTANDCATCHFIRE 
551 
C21E 552 CLEARALARK: 
C21E— SA 553 PCP OX POP RETURN ADDRESS 
G21F 58 554 POP 3X 7POP ALARM POINTER 
0220 07 555 Pop ES 
0221 52 556 PUSH DX FRESTORE RETURN ACDRESS 
C222 9C 557 PUSHF 7SAVE FLAGS 
0223 FA 558 CLI ,RUN WITH INTERRPUTS OFF 
C224 26344705 559 MCV ALY ES:CBXI.FLAG 7READ FLAG 
0228 26C6470502 560 MCV ES:CBXJ.FLAG,2 7CLEAR FLAG TO ‘UNKNOWN’ 
0220 3CO1 561 CMP AL+1 : 7CHECK “TRIGGERED’ BIT 
GC22F 7438 562 JZ CLEAR | 7IF TRIGGERED 
0231 3C02 563 CMP AL+2 7CHECK. “UNKNOWN’ BIT 
C233 7435 564 Jz CLEARX 7IF UNKNOWN 
C235 3c00 565 CMP AL,O ;CHECK IF CURRENTLY ACTIVE 
G237 75DE 566 JNZ CLEARO 7IF AN ERROR 
567 
6239 12 568 PUSH DS | 7SAVE OGROUP 
C23A 26C537 569 LOS SIZES: CBXI.NEXT 7FIND NEXT TIMER IN LIST 
0230 81F£0000 R 570 CMP SI-OFFSET DGROUP:TIME_HEAD CHECK IF NO NEXT ALARM 
€241 7507 571 JNZ CLEAR1 7IF NOT AT END OF LIST 
0243 &CDdé She MCV AX7DS ; 
0245 3D---- R 573 CMP AX,DGROUP 
C248 740E 574 Jz CLEAR2 7IF AT END OF LIST 
O24A 268B84F0A | 575 CLEAR1: MOV CX,ES:CBXI.DLCW 7ADD CURRENT DELAY TO NEXT DELAY 
024E 014COA 576 | ACD CST].DLOW,CX | 
C251 26884F0C , 577 MCV CX,—ES:038X].0HIGH 
0255 114c0C 578 ACC CSTJ.DHIGH,CX : 
0258 26C47F0é 579 CLEAR2: LES OI,ES:C8XJ.LAST 7CLOSE UP LINKS 
C25C 268935 580 MOV WCRD PTR ES: CDIJ.NEXT-SI 
C25F 268C5002 5&1 MOV WORD PTR ES:CDIJ.NEXTH2-0S 
C263 897C06 582 MOV WORD PTR CSII.LAST,DI 
0256 8&C4408 583 MCV WORD PTR CSIJ.LAST+2-ES 
C269 1F 524 PCP DS | . RESTORE OGROUP TO DS 
585 
C26A 9D 586 CLEARX: PCPF >RETURN 
C268 C3 587 RET 
588 
Q0265C 268B7F0E 539 CLEAR3: MCV DI,=S:C3X].RM3X READ MAILBOX OFFSET 
0270 8CC2 556 MCV DX,ES 
C272 OBFF 591 OR DI,DI _ sCHECK FOR ZERO (NO MAILOX) 
6274 74F4 592 | JZ CLEARX 7;IF ZERO 
C276 83700415 593 CMP COLTI.TYPEFLMBX 7MAKE SURE. IT IS A MAILBOX 
C27A 7598 594 JNZ CLEARO | 7;BLOW UP IF NOT. A MAILBOX 


O276. 75 ' B95 Pion = 30S , INITIALIZE REGS FOR LOOP 
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G086/8087/80E8 


LOC 


C270 
C27 
C281 


0283 
0234 
O23:5 
C286 


OBJ 


07 
807508 
EBQe 


58 

58 

06 

56 
260434 
S1FEFFFF 
7504 
58 

58 
EBD6 
3BF3 
75=B 
gCCO 
33C2 
7585 


260434 
8cco 

a3 

O07 
268937 
26894702 


81 FEFFFF 
7506 
89500C 
8C450E 


637D060C 
7DAC 
FF4506 
EBA? 


MACRO ASSEMBLER 


Line 


596 
ao 
275 
395 
600 
6C1 
602 
6Q3 
604 
605 


KACS - 


— SCURCE 


CLEAR4: 


CLEARS: 


CLEARS: 


CLEAR?: 


CODE 


Sti TLe 
seject 


(“KAOQS 


ALARM CLOCK 


oe 
SI,CDIIJ.MHEAD 
SHORT CLEARS 


cet 

SI/OWORD PTR ES:CSIJ 
ST,/OFFFFH 

CLEARE 


AX 0X 
CLEAR4 


SI,DWORD PTR ES:CSI] 
AXES 

3X 

ES . 

WORD PTR ES:CB8XI,SI 


WORD PTR ES:CBX1+2,AX 


SivOFErrH 
CLEAR? 


WORD PTR COIJ.MTAIL,BX 
WORD PTR COIJ.MTAIL+2-ES 


COIJ.COUNT,O 
CLEARX 
COIJ.COUNT 
CLEARX 


ABORT PROCESSING”) 


ROUTINES 


300 NOT INCREMENT IF 


09/01/80 PAGE 


7ENTER LOCP 


>POP LAST MESSAGE ADDRESS FROM STACK 


7SAVE LAST MESSAGE ADDRESS 
READ NEXT MESSAGE 
sCHECK IF END OF LIST 


IF NOT ENO OF LIST 
CLEAR STACK AND EXIT 


CHECK IF NEXT MESSAGE IS THIS AC3 

zIF NOT 

3IF NOT A MATCHs LOOP 

MESSAGE FOLLOWING ACB 

*MESSAGE PRECEDING ACB 

7CLOSE LINKS 

SCHECK IF ACB WAS LAST ITEM GN MAILBOX 


IF NOT LAST ITEM 
,UPDATE LAST POINTER IN MAILBOX HEADER 


CHECK SIGN 
>= 0 
7CNE MESSAGE REMOVED FROM MAILBOX 
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8086/8087/80&8 MACRO ASSEMBLER KACS ~ ABORT. PROCESSING | . 09/01/80 PAGE 16 


Loc OBJ ? LINE SOURCE: 
633 
= 639 DATA SEGMENT BYTE PUBLIC ’DATA’ 
E46 PUBLIC HCF_STACK/ERRORCODE 
QO0= (1 641 HCF_STACK Dw 1 DUP (7) 
meer de 
) 
C010 CdOod 642 ERRORCODE ~ OW 0 
Seas 643 DATA ENDS 
644 
=<22 645 CCDE SEGMENT BYTE PUBLIC “*CODE’ 
646 ASSUME CS:CGROUP,DS:OGROUP 
647 
648 
649 ,37 HALTSANOSCATCHESFIRE CERRORSCODE) -- ABORT 
650 ; . 
651 ; THIS ROUTINE SAVES AWAY THE ERROR CODE, 
- 652 ; THEN DISASLES INTERRUPTS AND HALTS. 
653 ; 
654 ; PARAMETER: . 
655 ; ERRORSCODE - 16“~BIT CODE FOR THE ERROR THAT OCCUREC. 
656 
657 PUBLIC HALTANOCATCHFIRE 
02C3 658 HALTANDCATCHFIRE: 
C2C3° SF 659 POP DI 7 CALLING ROUTINE 
C2C4 5E 66C PCP SI 7 ERROR CODE 
02C5 89361000 R 561 MCV ERRORCODE,SI 
C2C9 CE 662 PUSH OES > SAVE ALL THE REGISTERS | 
G2CA 57 663 OUSH or 
C2c38 1&6 664 PUSH DS 
G2Cc 06 ~—665 PUSH ES 
Q2CD 50 646 PUSH AX 
G2CE 53 667 PUSH BX 
Q2CF 51 668 PUSH Cx 
C200 52 669 PUSH DX 
0201 €9260E00 R 670 | MOV HCF_STACK,SP 
C205 FA 671 HCF1: Cig 
C206 8007 672 MOV AL,+7 7 TURN ON LEO 
0208 §6é2 673 OUT OE2ZH,AL 
O2DA F4 674 HLT 
0208 &BF8 575 JMP HCF1 LOOP IF RESTARTED 8Y ICE 
| 676 
oSS= 677 CaDé ENDS 


67é END 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


